COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		INTERNAL PICBIT,PICWID,PICHIG,PICLIN,PICSIZ,ROWTAB,COLTAB
C00004 ENDMK
C⊗;
	INTERNAL PICBIT,PICWID,PICHIG,PICLIN,PICSIZ,ROWTAB,COLTAB
	ENTRY	MAKTAB,PIXEL,PUTEL
	TITLE	PICSUB
	I←1
	J←2
	K←3
	M←5

	P←17

RETAD:	0

PICSIZ:	0
PICBIT:	0
PICWID:	0
PICHIG:	0
PICLIN:	0

ROWTAB:	BLOCK	1000
COLTAB:	BLOCK	1000

MAKTAB:	MOVN	I,PICHIG	;USED INTERNALLY TO GENERATE ROW AND
	HRLZ	I,I		;COLUMN TABLES
	MOVEI	J,0
RWLP:	MOVEM	J,ROWTAB(I)
	ADD	J,PICLIN
	AOBJN	I,RWLP
	
	MOVEI	J,44
	SUB	J,PICBIT
	LSH	J,6
	OR	J,PICBIT
	LSH	J,30
	MOVN	I,PICWID
	HRLZ	I,I
COLP:	MOVEM	J,COLTAB(I)
	IBP	J
	AOBJN	I,COLP
	POPJ	P,

PIXEL:	POP	P,RETAD
	POP	P,J
	POP	P,I
	POP	P,K
	ADD	K,ROWTAB-1(I)
	ADD	K,COLTAB-1(J)
	LDB	1,K
	JRST	@RETAD

PUTEL:	POP	P,RETAD
	POP	P,M
	POP	P,J
	POP	P,I
	POP	P,K
	ADD	K,ROWTAB-1(I)
	ADD	K,COLTAB-1(J)
	DPB	M,K
	JRST	@RETAD

	END